home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1029 < prev    next >
Encoding:
Text File  |  1998-01-08  |  2.1 KB  |  61 lines
  1. userdict begin /regmarkdict 23 dict def end
  2. /setpacking where dup{exch pop currentpacking exch true setpacking}if
  3. regmarkdict begin
  4. /X{exch def}bind def
  5. /m/moveto load def
  6. /l/lineto load def
  7. /rl/rlineto load def
  8. /np/newpath load def
  9. /cp/closepath load def
  10. /rrc{gsave np 4 copy 4 2 roll exch m 6 -1 roll l l l cp setgray eofill
  11.  grestore}bind def
  12. /cutm{/regl X
  13.  /@8 X /@7 X /@6 X /@5 X
  14.  /@4 X /@3 X /@2 X /@1 X
  15.  gsave np
  16.  @2 @5 m 0 regl rl
  17.  @6 @1 m regl 0 rl
  18.  @4 @5 m 0 regl rl
  19.  @8 @1 m regl neg 0 rl
  20.  @2 @7 m 0 regl neg rl
  21.  @6 @3 m regl 0 rl
  22.  @4 @7 m 0 regl neg rl
  23.  @8 @3 m regl neg 0 rl
  24.  dup .5 mul setlinewidth gsave 1 setgray stroke grestore
  25.  .25 mul setlinewidth stroke grestore}bind def
  26. /cirm{/skew X/regl X
  27.  /@4 X /@3 X /@2 X /@1 X
  28.  /@5 @3 @1 sub 2.0 div def
  29.  /@6 @4 @2 sub 2.0 div def
  30.  /@7 regl 2 mul def
  31.  /@8 regl 2.0 div def
  32.  /@9 regl 4.0 div def gsave np
  33.  @2 @6 add regl sub @1 m @7 0 rl
  34.  @2 @6 add regl sub skew add @3 m @7 0 rl
  35.  @2 @1 @5 add regl sub skew add m 0 @7 rl
  36.  @4 @1 @5 add regl sub m 0 @7 rl
  37.  @2 @6 add @1 @8 sub m 0 regl rl
  38.  @2 @6 add skew add @3 @8 sub m 0 regl rl
  39.  @2 @8 sub @1 @5 add skew add m regl 0 rl
  40.  @4 @8 sub @1 @5 add m regl 0 rl
  41.  @2 @6 add @1 2 copy m @9 0 360 arc
  42.  @2 @6 add skew add @3 2 copy m @9 0 360 arc
  43.  @2 @1 @5 add skew add 2 copy m @9 0 360 arc
  44.  @4 @1 @5 add 2 copy m @9 0 360 arc
  45.  dup .5 mul setlinewidth gsave 1 setgray stroke grestore
  46.  .25 mul setlinewidth stroke grestore}bind def
  47. /sepatch{/@8 X/@7 X/@6 X/@5 X/@4 X/@3 X/@2 X/@1 X gsave
  48.  dup scale @2 0 1 11{gsave @1 @2 translate 1 0 0 @8 dup rrc
  49.  2 index exch get dup 0 ne{100 div 1 exch sub 1 1 @8 1 sub dup rrc}
  50.  {pop}ifelse grestore @2 @8 add dup @4 gt{pop @1 @5 eq{exit}
  51.  {@5/@1 X @3 @7 sub/@3 X @6 @7 sub/@6 X dup}ifelse}
  52.  {dup @3 gt{@2 @3 le{pop @6}if}if}ifelse/@2 X}for
  53.  pop pop grestore}bind def
  54. /grpatch{/@6 X/@5 X/@4 X/@3 X/@2 X/@1 X gsave dup scale
  55.  0 1 9{gsave @1 @2 translate 1 0 0 @6 dup rrc 1 index exch get dup
  56.  0 ne{100 div 1 exch sub 1 1 @6 1 sub dup rrc}{pop}ifelse grestore
  57.  @1 @6 add dup @4 gt{pop exit}if dup @3 gt{@1 @3 le{pop @5}if}if/@1 X}for
  58.  pop grestore}bind def
  59. {setpacking}if
  60. end
  61.